home *** CD-ROM | disk | FTP | other *** search
- .key DIR
- .bra {
- .ket }
- failat 21
- cd "{DIR}"
- c:which >NIL: makehash
- IF WARN
- echo "Program 'MakeHash' must be available!"
- quit 10
- ENDIF
- IF NOT EXISTS data.hash
- echo "The file 'data.hash' doesn't exist!*nAre you in the right drawer ???"
- quit 10
- ENDIF
- c:makedir >NIL: T:yacdp{$$}
- c:makedir >NIL: Storage
- c:copy data.hash T:yacdp{$$}/
- makehash T:yacdp{$$}/ EXTRACT=#?
- c:copy >NIL: ((UPC-#?)|(#?'|#?)|(#[0-9])) TO T:yacdp{$$}/ QUIET CLONE
- c:rename >NIL: ((UPC-#?)|(#?'|#?)|(#[0-9])) TO Storage/ QUIET
- makehash >NIL: T:yacdp{$$}/ NUM=400
- c:copy T:yacdp{$$}/data.hash ""
- c:delete T:yacdp{$$} QUIET ALL
- echo "OK, the hashfile was updated.*n(your new songfiles were also saved to `cd`/Storage/)"
-